home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / test / transport.g < prev    next >
Encoding:
Text File  |  1993-08-24  |  990 b   |  71 lines  |  [TEXT/R*ch]
  1. ;; This is a test of transport usage.
  2.  
  3. (include "standard")
  4.  
  5. (set see-all true)
  6.  
  7. (area 30 30)
  8.  
  9. (area (terrain (by-name ".+" sea plains)
  10.   "10+10.10+"
  11.   "10+10.10+"
  12.   "10+10.10+"
  13.   "10+10.10+"
  14.   "10+10.10+"
  15.   "10+10.10+"
  16.   "10+10.10+"
  17.   "10+10.10+"
  18.   "10+10.10+"
  19.   "10+10.10+"
  20.   "10+10.10+"
  21.   "10+10.10+"
  22.   "10+10.10+"
  23.   "10+10.10+"
  24.   "10+10.10+"
  25.   "10+10.10+"
  26.   "10+10.10+"
  27.   "10+10.10+"
  28.   "10+10.10+"
  29.   "10+10.10+"
  30.   "10+10.10+"
  31.   "10+10.10+"
  32.   "10+10.10+"
  33.   "10+10.10+"
  34.   "10+10.10+"
  35.   "10+10.10+"
  36.   "10+10.10+"
  37.   "10+10.10+"
  38.   "10+10.10+"
  39.   "10+10.10+"
  40. ))
  41.  
  42. ;; Limit to two players only.
  43.  
  44. (set sides-min 2)
  45. (set sides-max 2)
  46.  
  47. ;; Two sides, no special properties needed (?).
  48.  
  49. (side 1)
  50.  
  51. (side 2)
  52.  
  53. ;;; (no player for one side?)
  54.  
  55. (infantry 6 15 1)
  56. (troop-transport 11 19 1)
  57.  
  58. ;; Two bases, one for each side.
  59.  
  60. (base 5 15 1)
  61.  
  62. (base 25 15 2)
  63.  
  64. (set synthesis-methods ())
  65.  
  66. ;;; This motivates the AI to go chasing after the destination.
  67.  
  68. (scorekeeper (do last-side-wins))
  69.  
  70. (add base point-value 1)
  71.